home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / game / think / MUI_FreeCell.lha / MUI_FreeCell / Cards / PC / MakeCards.pprx < prev    next >
Text File  |  1997-11-05  |  7KB  |  322 lines
  1. /* Personal Paint Amiga Rexx script - Copyright © 1996 Cloanto Italia srl */
  2.  
  3. /* $VER: XTool.pprx 1.0 */
  4.  
  5. /** ENG
  6.  This is a example of a "tool script". This tool, entirely created in
  7.  Rexx, draws an "X" on the image, using the current brush, foreground
  8.  color and paint mode.
  9. */
  10.  
  11. /** DEU
  12.  Dies ist ein Beispiel für ein "Tool Skript". Dieses ausschließlich
  13.  in Rexx geschriebene Tool zeichnet ein "X" auf das Bild, wobei die
  14.  aktuellen Einstellungen für Brush, Vordergrundfarbe und Malmodus
  15.  verwendet werden.
  16. */
  17.  
  18. IF ARG(1, EXISTS) THEN
  19.     PARSE ARG PPPORT .
  20. ELSE
  21.     EXIT 0  /* macro execution only */
  22.  
  23. ADDRESS VALUE PPPORT
  24. OPTIONS RESULTS
  25. OPTIONS FAILAT 10000
  26.  
  27. Get 'LANG'
  28. IF RESULT = 1 THEN DO       /* Deutsch */
  29.     txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
  30. END
  31. ELSE IF RESULT = 2 THEN     /* Italiano */
  32.     txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
  33. ELSE                /* English */
  34.     txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
  35.  
  36. Version 'REXX'
  37. IF RESULT < 7 THEN DO
  38.     RequestNotify 'PROMPT "'txt_err_oldclient'"'
  39.     EXIT 10
  40. END
  41.  
  42. xp = 0
  43. yp = 0
  44.  
  45. FreeBrush
  46. DefineBrush xp yp xp+70 yp+95 'POINTS'
  47. SaveBrush 'T:CARD03 "ILBM" "COMPR=1"'
  48. FreeBrush
  49.  
  50. xp = xp + 73
  51. DefineBrush xp yp xp+70 yp+95 'POINTS'
  52. SaveBrush 'T:CARD07 "ILBM" "COMPR=1"'
  53. FreeBrush
  54.  
  55. xp = xp + 73
  56. DefineBrush xp yp xp+70 yp+95 'POINTS'
  57. SaveBrush 'T:CARD11 "ILBM" "COMPR=1"'
  58. FreeBrush
  59.  
  60. xp = xp + 73
  61. DefineBrush xp yp xp+70 yp+95 'POINTS'
  62. SaveBrush 'T:CARD15 "ILBM" "COMPR=1"'
  63. FreeBrush
  64.  
  65. xp = xp + 73
  66. DefineBrush xp yp xp+70 yp+95 'POINTS'
  67. SaveBrush 'T:CARD19 "ILBM" "COMPR=1"'
  68. FreeBrush
  69.  
  70. xp = xp + 73
  71. DefineBrush xp yp xp+70 yp+95 'POINTS'
  72. SaveBrush 'T:CARD23 "ILBM" "COMPR=1"'
  73. FreeBrush
  74.  
  75. xp = xp + 73
  76. DefineBrush xp yp xp+70 yp+95 'POINTS'
  77. SaveBrush 'T:CARD27 "ILBM" "COMPR=1"'
  78. FreeBrush
  79.  
  80. xp = xp + 73
  81. DefineBrush xp yp xp+70 yp+95 'POINTS'
  82. SaveBrush 'T:CARD31 "ILBM" "COMPR=1"'
  83. FreeBrush
  84.  
  85. xp = xp + 73
  86. DefineBrush xp yp xp+70 yp+95 'POINTS'
  87. SaveBrush 'T:CARD35 "ILBM" "COMPR=1"'
  88. FreeBrush
  89.  
  90. xp = xp + 73
  91. DefineBrush xp yp xp+70 yp+95 'POINTS'
  92. SaveBrush 'T:CARD39 "ILBM" "COMPR=1"'
  93. FreeBrush
  94.  
  95. xp = xp + 73
  96. DefineBrush xp yp xp+70 yp+95 'POINTS'
  97. SaveBrush 'T:CARD43 "ILBM" "COMPR=1"'
  98. FreeBrush
  99.  
  100. xp = xp + 73
  101. DefineBrush xp yp xp+70 yp+95 'POINTS'
  102. SaveBrush 'T:CARD47 "ILBM" "COMPR=1"'
  103. FreeBrush
  104.  
  105. xp = xp + 73
  106. DefineBrush xp yp xp+70 yp+95 'POINTS'
  107. SaveBrush 'T:CARD51 "ILBM" "COMPR=1"'
  108. FreeBrush
  109.  
  110. xp = 0
  111. yp = yp + 98
  112.  
  113. DefineBrush xp yp xp+70 yp+95 'POINTS'
  114. SaveBrush 'T:CARD04 "ILBM" "COMPR=1"'
  115. FreeBrush
  116.  
  117. xp = xp + 73
  118. DefineBrush xp yp xp+70 yp+95 'POINTS'
  119. SaveBrush 'T:CARD08 "ILBM" "COMPR=1"'
  120. FreeBrush
  121.  
  122. xp = xp + 73
  123. DefineBrush xp yp xp+70 yp+95 'POINTS'
  124. SaveBrush 'T:CARD12 "ILBM" "COMPR=1"'
  125. FreeBrush
  126.  
  127. xp = xp + 73
  128. DefineBrush xp yp xp+70 yp+95 'POINTS'
  129. SaveBrush 'T:CARD16 "ILBM" "COMPR=1"'
  130. FreeBrush
  131.  
  132. xp = xp + 73
  133. DefineBrush xp yp xp+70 yp+95 'POINTS'
  134. SaveBrush 'T:CARD20 "ILBM" "COMPR=1"'
  135. FreeBrush
  136.  
  137. xp = xp + 73
  138. DefineBrush xp yp xp+70 yp+95 'POINTS'
  139. SaveBrush 'T:CARD24 "ILBM" "COMPR=1"'
  140. FreeBrush
  141.  
  142. xp = xp + 73
  143. DefineBrush xp yp xp+70 yp+95 'POINTS'
  144. SaveBrush 'T:CARD28 "ILBM" "COMPR=1"'
  145. FreeBrush
  146.  
  147. xp = xp + 73
  148. DefineBrush xp yp xp+70 yp+95 'POINTS'
  149. SaveBrush 'T:CARD32 "ILBM" "COMPR=1"'
  150. FreeBrush
  151.  
  152. xp = xp + 73
  153. DefineBrush xp yp xp+70 yp+95 'POINTS'
  154. SaveBrush 'T:CARD36 "ILBM" "COMPR=1"'
  155. FreeBrush
  156.  
  157. xp = xp + 73
  158. DefineBrush xp yp xp+70 yp+95 'POINTS'
  159. SaveBrush 'T:CARD40 "ILBM" "COMPR=1"'
  160. FreeBrush
  161.  
  162. xp = xp + 73
  163. DefineBrush xp yp xp+70 yp+95 'POINTS'
  164. SaveBrush 'T:CARD44 "ILBM" "COMPR=1"'
  165. FreeBrush
  166.  
  167. xp = xp + 73
  168. DefineBrush xp yp xp+70 yp+95 'POINTS'
  169. SaveBrush 'T:CARD48 "ILBM" "COMPR=1"'
  170. FreeBrush
  171.  
  172. xp = xp + 73
  173. DefineBrush xp yp xp+70 yp+95 'POINTS'
  174. SaveBrush 'T:CARD52 "ILBM" "COMPR=1"'
  175. FreeBrush
  176.  
  177. xp = xp + 73
  178. DefineBrush xp yp xp+70 yp+95 'POINTS'
  179. SaveBrush 'T:CARD02 "ILBM" "COMPR=1"'
  180. FreeBrush
  181.  
  182. xp = 0
  183. yp = yp + 98
  184.  
  185. DefineBrush xp yp xp+70 yp+95 'POINTS'
  186. SaveBrush 'T:CARD05 "ILBM" "COMPR=1"'
  187. FreeBrush
  188.  
  189. xp = xp + 73
  190. DefineBrush xp yp xp+70 yp+95 'POINTS'
  191. SaveBrush 'T:CARD09 "ILBM" "COMPR=1"'
  192. FreeBrush
  193.  
  194. xp = xp + 73
  195. DefineBrush xp yp xp+70 yp+95 'POINTS'
  196. SaveBrush 'T:CARD13 "ILBM" "COMPR=1"'
  197. FreeBrush
  198.  
  199. xp = xp + 73
  200. DefineBrush xp yp xp+70 yp+95 'POINTS'
  201. SaveBrush 'T:CARD17 "ILBM" "COMPR=1"'
  202. FreeBrush
  203.  
  204. xp = xp + 73
  205. DefineBrush xp yp xp+70 yp+95 'POINTS'
  206. SaveBrush 'T:CARD21 "ILBM" "COMPR=1"'
  207. FreeBrush
  208.  
  209. xp = xp + 73
  210. DefineBrush xp yp xp+70 yp+95 'POINTS'
  211. SaveBrush 'T:CARD25 "ILBM" "COMPR=1"'
  212. FreeBrush
  213.  
  214. xp = xp + 73
  215. DefineBrush xp yp xp+70 yp+95 'POINTS'
  216. SaveBrush 'T:CARD29 "ILBM" "COMPR=1"'
  217. FreeBrush
  218.  
  219. xp = xp + 73
  220. DefineBrush xp yp xp+70 yp+95 'POINTS'
  221. SaveBrush 'T:CARD33 "ILBM" "COMPR=1"'
  222. FreeBrush
  223.  
  224. xp = xp + 73
  225. DefineBrush xp yp xp+70 yp+95 'POINTS'
  226. SaveBrush 'T:CARD37 "ILBM" "COMPR=1"'
  227. FreeBrush
  228.  
  229. xp = xp + 73
  230. DefineBrush xp yp xp+70 yp+95 'POINTS'
  231. SaveBrush 'T:CARD41 "ILBM" "COMPR=1"'
  232. FreeBrush
  233.  
  234. xp = xp + 73
  235. DefineBrush xp yp xp+70 yp+95 'POINTS'
  236. SaveBrush 'T:CARD45 "ILBM" "COMPR=1"'
  237. FreeBrush
  238.  
  239. xp = xp + 73
  240. DefineBrush xp yp xp+70 yp+95 'POINTS'
  241. SaveBrush 'T:CARD49 "ILBM" "COMPR=1"'
  242. FreeBrush
  243.  
  244. xp = xp + 73
  245. DefineBrush xp yp xp+70 yp+95 'POINTS'
  246. SaveBrush 'T:CARD53 "ILBM" "COMPR=1"'
  247. FreeBrush
  248.  
  249. xp = xp + 73
  250. DefineBrush xp yp xp+70 yp+95 'POINTS'
  251. SaveBrush 'T:CARD01 "ILBM" "COMPR=1"'
  252. FreeBrush
  253.  
  254. xp = 0
  255. yp = yp + 98
  256.  
  257. DefineBrush xp yp xp+70 yp+95 'POINTS'
  258. SaveBrush 'T:CARD06 "ILBM" "COMPR=1"'
  259. FreeBrush
  260.  
  261. xp = xp + 73
  262. DefineBrush xp yp xp+70 yp+95 'POINTS'
  263. SaveBrush 'T:CARD10 "ILBM" "COMPR=1"'
  264. FreeBrush
  265.  
  266. xp = xp + 73
  267. DefineBrush xp yp xp+70 yp+95 'POINTS'
  268. SaveBrush 'T:CARD14 "ILBM" "COMPR=1"'
  269. FreeBrush
  270.  
  271. xp = xp + 73
  272. DefineBrush xp yp xp+70 yp+95 'POINTS'
  273. SaveBrush 'T:CARD18 "ILBM" "COMPR=1"'
  274. FreeBrush
  275.  
  276. xp = xp + 73
  277. DefineBrush xp yp xp+70 yp+95 'POINTS'
  278. SaveBrush 'T:CARD22 "ILBM" "COMPR=1"'
  279. FreeBrush
  280.  
  281. xp = xp + 73
  282. DefineBrush xp yp xp+70 yp+95 'POINTS'
  283. SaveBrush 'T:CARD26 "ILBM" "COMPR=1"'
  284. FreeBrush
  285.  
  286. xp = xp + 73
  287. DefineBrush xp yp xp+70 yp+95 'POINTS'
  288. SaveBrush 'T:CARD30 "ILBM" "COMPR=1"'
  289. FreeBrush
  290.  
  291. xp = xp + 73
  292. DefineBrush xp yp xp+70 yp+95 'POINTS'
  293. SaveBrush 'T:CARD34 "ILBM" "COMPR=1"'
  294. FreeBrush
  295.  
  296. xp = xp + 73
  297. DefineBrush xp yp xp+70 yp+95 'POINTS'
  298. SaveBrush 'T:CARD38 "ILBM" "COMPR=1"'
  299. FreeBrush
  300.  
  301. xp = xp + 73
  302. DefineBrush xp yp xp+70 yp+95 'POINTS'
  303. SaveBrush 'T:CARD42 "ILBM" "COMPR=1"'
  304. FreeBrush
  305.  
  306. xp = xp + 73
  307. DefineBrush xp yp xp+70 yp+95 'POINTS'
  308. SaveBrush 'T:CARD46 "ILBM" "COMPR=1"'
  309. FreeBrush
  310.  
  311. xp = xp + 73
  312. DefineBrush xp yp xp+70 yp+95 'POINTS'
  313. SaveBrush 'T:CARD50 "ILBM" "COMPR=1"'
  314. FreeBrush
  315.  
  316. xp = xp + 73
  317. DefineBrush xp yp xp+70 yp+95 'POINTS'
  318. SaveBrush 'T:CARD54 "ILBM" "COMPR=1"'
  319. FreeBrush
  320.  
  321.  
  322.